home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_fform.ps < prev    next >
Text File  |  2003-01-03  |  3KB  |  83 lines
  1. %    Copyright (C) 1995, 1996, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Form caching implemented in PostScript.
  8.  
  9. % This implementation doesn't do the right thing about halftone or
  10. % Pattern phase, but the Pattern cache doesn't either....
  11.  
  12. % The Form cache key is the Form dictionary; the value is an array
  13. % of 2 elements [CTM pattern_instance].
  14. %
  15. % In order to prevent restore from clearing the cache, we explicitly
  16. % push the cache entries on the stack before a restore and reinstall them.
  17. currentglobal false setglobal
  18. /.formcachedict 20 dict def    % must be local
  19. true setglobal
  20. /restore {
  21.   mark .formcachedict { } forall
  22.   counttomark 1 add index { //restore } .internalstopped
  23.     { cleartomark //restore }
  24.     { counttomark 2 idiv { .formcachedict 3 1 roll put } repeat pop pop }
  25.   ifelse
  26. } bind odef
  27.  
  28. /.execform1 {
  29.   dup /Implementation known not {
  30.     dup /FormType get 1 ne { /rangecheck signalerror } if
  31.         % The Implementation is a Pattern that will draw the form.
  32.     currentglobal 1 index gcheck setglobal
  33.         % Stack: form global
  34.     10 dict begin
  35.       /PatternType 1 def
  36.       /PaintType 1 def    % colored
  37.       /TilingType 1 def    % irrelevant
  38.         % Copy the BBox to the correct VM.
  39.       /BBox 2 index /BBox get 4 array copy exch 1 index def
  40.         % Set XStep and YStep to very large numbers,
  41.         % so we won't get multiple copies of the form.
  42.       /XStep 1 index dup 2 get exch 0 get sub 100 mul def
  43.       /YStep exch dup 3 get exch 1 get sub 100 mul def
  44.       /PaintProc 2 index /PaintProc get def
  45.     currentdict end readonly
  46.         % Stack: form global impl
  47.     exch setglobal
  48.     1 index /Implementation 3 -1 roll .forceput
  49.   } if
  50.   .formcachedict 1 index .knownget {
  51.         % Check whether we can use the cached value.
  52.         % Stack: form cachevalue
  53.     matrix currentmatrix true 0 1 3 {
  54.         % Stack: form cachevalue curmat true index
  55.       3 index 0 get 1 index get exch 3 index exch get ne {
  56.     pop pop false exit
  57.       } if
  58.     } for exch pop
  59.   } {
  60.     false
  61.   } ifelse not
  62.   {        % Make a new cache entry.
  63.     gsave
  64.     matrix currentmatrix dup 4 0 put dup 5 0 put dup setmatrix
  65.         % Stack: form mat
  66.     1 index /Implementation get
  67.     2 index /Matrix get
  68.     makepattern 2 array astore
  69.     .formcachedict 2 index 2 index put
  70.     grestore
  71.   } if
  72.         % Stack: form cachevalue
  73.   -1 0 0 transform
  74.   2 { exch round cvi } repeat .setscreenphase
  75.   1 get setpattern
  76.   /BBox get aload pop
  77.   exch 3 index sub exch 2 index sub rectfill
  78. } .bind odef    % must bind .forceput
  79.  
  80. .formtypes 1 /.execform1 load put
  81.  
  82. setglobal
  83.